一键回收脚本,脚本简洁,功能特别强大[彩虹三]

• 可以手动回收,可自动,
• 采用双列表控制,解释说明:一件回收可以控制特定物品不能一键回收
• 脚本很简洁,测试不会死循环.

[@main]
#IF
EQUAL G0 0
#ACT
MOV S2 <color=~回收价格#0#0xff00CC33$#32鼠标指向查看回收价格>
MOV S3 <装备回收金币/@Recovery_Gold_KaiQu>
MOV S4 <装备回收经验/@Recovery_Exp_KaiQu>

#IF
TRUE
#SAY
战争越来越激烈了，前线需要更多的物资，我奉命在此\
收购战争物资，希望勇士们踊跃参与，将有丰厚的奖励回报！\
<一键金币/@一键回收> <一键经验/@一键回收V>们\
<$STR(S1)>\\
<$STR(S2)>\
<@@!PIC2 3,13404>　　　　　　　　　　　<@@!PIC2 3,13404>\
<$STR(S3)>　　　　　　　<$STR(S4)>

;投入为<$PARAM(0)>
;标签为<$str(s20)>
;货币为<$str(s21)>
;声望为<$str(s22)>
;经验为<$str(s23)>
;$PARAM(0)==ShowSpotDlg.Name
;$PARAM(1)==ShowSpotDlg.ID
;============================================================================
[@一键回收]
#IF
CHECKITEMINLIST ..\QUESTDIARY\数据文件\装备回收\回收列表.txt S9
#ACT
MOV S10 [
INC S10 $STR(S9)
INC S10 ]
SENDMSG 5 玩家%s在中州物资回收使者处回收了<<$STR(S10)>><<$STR(S9)>>
DelayGoto 5 @Recovery_Gold_KaiQu_B
BREAK

[@Recovery_Gold_KaiQu_B]
#IF
PosInList $STR(S10) ..\QUESTDIARY\数据文件\装备回收\开区回收价格.ini S11
#ACT
GETVALIDSTR $STR(S11) = S12 S13
Split $STR(S13) | S20
#ELSESAY
\
您投入的{Color=00FF40 <$PARAM(0)>}\
目前不是我需要的，您还是换一件吧！\\\\\
<返回/@main>
#ELSEACT
break
#IF
EQUAL S20 A
#SAY
\\
恭喜您上交<$STR(S9)>，获得金币<$STR(S21)>,附赠声望点<$str(S22)>点。\\\
<自动回收中/@R>。。。。。。。\\　　<返回/@main>\
#ACT
TAKE $STR(S9) 1
give 金币 $STR(S21)
CreditPoint + $STR(S22)
DelayGoto 2 @一键回收
SENDMSG 23 玩家%s在中州物资回收使者处回收了一件<$STR(S9)>，获得了<$STR(S21)>金币的奖励。
SENDMSG 16 玩家%s在中州物资回收使者处回收了一件<$STR(S9)>，获得了<$STR(S21)>金币的奖励。

;Formatstr S0 %s时%s分%s秒#32玩家%s回收了一件%s获得%s金币%s声望%s <$TIME.HOUR>|<$TIME.MIN>|<$TIME.SEC>|<$USERNAME>|<$PARAM(0)>|<$STR(S21)>|<$str(S22)>
;ADDVARLIST $STR(S0) ..\GameLog\物品日志\<$Date>.txt
break

[@一键回收V]
#IF
CHECKITEMINLIST ..\QUESTDIARY\数据文件\装备回收\回收列表.txt S9
#ACT
MOV S10 [
INC S10 $STR(S9)
INC S10 ]
SENDMSG 5 玩家%s在中州物资回收使者处回收了<<$STR(S10)>><<$STR(S9)>>
DelayGoto 5 @Recovery_Gold_KaiQu_V
BREAK

[@Recovery_Gold_KaiQu_V]
#IF
PosInList $STR(S10) ..\QUESTDIARY\数据文件\装备回收\开区回收价格.ini S11
#ACT
GETVALIDSTR $STR(S11) = S12 S13
Split $STR(S13) | S20
#ELSESAY
\
您投入的{Color=00FF40 <$PARAM(0)>}\
目前不是我需要的，您还是换一件吧！\\\\\
<返回/@main>
#ELSEACT
break
#IF
EQUAL S20 A
#SAY
\\
恭喜您上交<$STR(S9)>，获得金币<$STR(S21)>,附赠声望点<$str(S22)>点。\\\
<自动回收中/@R>。。。。。。。\\　　<返回/@main>\
#ACT
TAKE $STR(S9) 1
;give 金币 $STR(S21)
CHANGEEXP + $STR(S23)
CreditPoint + $STR(S22)
DelayGoto 2 @一键回收V
SENDMSG 23 玩家%s在中州物资回收使者处回收了一件<$STR(S9)>，获得了<$STR(S23)>经验的奖励。
SENDMSG 16 玩家%s在中州物资回收使者处回收了一件<$STR(S9)>，获得了<$STR(S23)>经验的奖励。

;Formatstr S0 %s时%s分%s秒#32玩家%s回收了一件%s获得%s金币%s声望%s <$TIME.HOUR>|<$TIME.MIN>|<$TIME.SEC>|<$USERNAME>|<$PARAM(0)>|<$STR(S21)>|<$str(S22)>
;ADDVARLIST $STR(S0) ..\GameLog\物品日志\<$Date>.txt
break

<div class="blockcode"><blockquote>[回收列表]
物品名称
幽冥项链
阎罗手套
光芒手套
天珠项链
心灵护腕
白金戒指
生命项链

[开区回收价格.ini]
[物品名称]=标签|货币|声望|经验
[幽冥项链]=A|30000|0|30000
[阎罗手套]=A|30000|0|30000
[光芒手套]=A|30000|0|30000
[天珠项链]=A|30000|0|30000
[心灵护腕]=A|30000|0|30000
[白金戒指]=A|30000|0|30000
[生命项链]=A|30000|0|30000
[魔魂手镯]=A|30000|0|30000